* lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2266f9952f8bf4fdd22222aea3180e9882261bd..9d9949c3999cf3215568f3a5e4b31fee70ded66b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/macroexp.el (macroexp--expand-all): Fix last change.
+
 2012-09-19  Juri Linkov  <juri@jurta.org>
 
        * dired-aux.el (dired-diff): Add (require 'diff) because

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 6a84be067281e1afa29605a241b9e55313fed454..f9be3e4fcc4675f4beaf1ed6ea25de809b61ed60 100644 (file)
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -149,7 +149,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
                      (symbolp (car form))
                      (get (car form) 'byte-obsolete-info))
                 (macroexp--funcall-and-return
-                 (lambda () (byte-compile-warn-obsolete ',(car form)))
+                 (lambda () (byte-compile-warn-obsolete (car form)))
                  #'ignore      ;FIXME: We should `message' something.
                  new-form)
               new-form)))